//～～～～～～～
//保存中量向量表数据
mov ax,0 
mov ds,ax
mov dx,[4*9]
push dx
mov dx,[4*9+2]
push dx

//～～～～～～～～～
//复制控制程序
mov ax,0
mov ds,ax
mov ax,0100h    //设定复制目标地址
mov bx,cs
mov es,bx
mov bx,zzz1      //设定复制源地址

mov cx,intkzend-intkzstart   //设置复制循环次数
X:
mov ds:[ax],es:[bx]
inc ax
inc bx
loop x    //执行复制操作

mov ax,4c00h
int 21h 
//～～～～～～～～～～～～
//将加入中断的程序。
intkzstart:

push ax
push ds
push bx

in al,60h
pushf
mov bx,0
mov es,bx
call dword ptr es:[200h]

cmp al,3bh+80h
jne int9ret

mov ax,0b800h
mov ds,ax
mov byte ptr ds:[160*7+40*3],'!'

int9ret:
pop bx
pop ds
pop ax
iret

intkzend:nop
